wideLabels <- read_excel(file.path(system.file(package="managecrownsdata"), 'labeling_file_Mbalmayo.xlsx'))
longLabels <- Labels_pivotLonger(wideLabels)
datatable(longLabels,
class = 'cell-border stripe',
rownames = FALSE,
width = '100%',
options = list(scrollX = TRUE))
#> Warning in instance$preRenderHook(instance): It seems your data is too big for
#> client-side DataTables. You may consider server-side processing:
#> https://rstudio.github.io/DT/server.html
Labels_heatmap(longLabels,
Specie = 'Alstonia boonei',
na.rm = TRUE)
#> Warning: Removed 933 rows containing missing values or values outside the scale range
#> (`geom_point()`).
